home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / PIIGSIncludes / Events.p < prev    next >
Encoding:
Text File  |  1990-04-03  |  4.5 KB  |  142 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: Events.p
  3. ;
  4. ;
  5. ; Copyright Apple Computer, Inc. 1986-90
  6. ; All Rights Reserved
  7. ;
  8. ********************************************}
  9.  
  10. UNIT EVENTS;
  11. INTERFACE
  12. USES TYPES,MISCTOOL;
  13. CONST
  14.  
  15. { Error Codes }
  16. emDupStrtUpErr = $0601;  { duplicate EMStartup Call }
  17. emResetErr = $0602;  { can't reset error the Event Manager }
  18. emNotActErr = $0603;  { event manager not active }
  19. emBadEvtCodeErr = $0604;  { illegal event code }
  20. emBadBttnNoErr = $0605;  { illegal button number }
  21. emQSiz2LrgErr = $0606;  { queue size too large }
  22. emNoMemQueueErr = $0607;  { not enough memory for queue }
  23. emBadEvtQErr = $0681;  { fatal sys error - event queue damaged }
  24. emBadQHndlErr = $0682;  { fatal sys error - queue handle damaged }
  25.  
  26. { Event Codes }
  27. nullEvt = $0000;
  28. mouseDownEvt = $0001;
  29. mouseUpEvt = $0002;
  30. keyDownEvt = $0003;
  31. autoKeyEvt = $0005;
  32. updateEvt = $0006;
  33. activateEvt = $0008;
  34. switchEvt = $0009;
  35. deskAccEvt = $000A;
  36. driverEvt = $000B;
  37. app1Evt = $000C;
  38. app2Evt = $000D;
  39. app3Evt = $000E;
  40. app4Evt = $000F;
  41.  
  42. { Event Masks }
  43. mDownMask = $0002;
  44. mUpMask = $0004;
  45. keyDownMask = $0008;
  46. autoKeyMask = $0020;
  47. updateMask = $0040;
  48. activeMask = $0100;
  49. switchMask = $0200;
  50. deskAccMask = $0400;
  51. driverMask = $0800;
  52. app1Mask = $1000;
  53. app2Mask = $2000;
  54. app3Mask = $4000;
  55. app4Mask = $8000;
  56. everyEvent = $FFFF;
  57.  
  58. { Journal Codes }
  59. jcTickCount = $00;  { TickCount call }
  60. jcGetMouse = $01;  { GetMouse call }
  61. jcButton = $02;  { Button call }
  62. jcEvent = $04;  { GetNextEvent and EventAvail calls }
  63.  
  64. { Modifiers Flags }
  65. activeFlag = $0001;  { set if window being activated }
  66. changeFlag = $0002;  { set if active wind. changed state }
  67. btn1State = $0040;  { set if button 1 up }
  68. btn0State = $0080;  { set if button 0 up }
  69. appleKey = $0100;  { set if Apple key down }
  70. shiftKey = $0200;  { set if shift key down }
  71. capsLock = $0400;  { set if caps lock key down }
  72. optionKey = $0800;  { set if option key down }
  73. controlKey = $1000;  { set if Control key down }
  74. keyPad = $2000;  { set if keypress from key pad }
  75.  
  76. { kTransID }
  77. keyboardTransIIGS = $0000;  { use old-style Apple IIGS mapping }
  78. keyboardTransMac = $00FF;  { use Macintosh mapping }
  79.  
  80. TYPE
  81. EventRecordHndl = ^EventRecordPtr;
  82. EventRecordPtr = ^EventRecord;
  83. EventRecord = RECORD CASE INTEGER OF
  84.     0: (
  85.         what : Integer; { event code }
  86.         message : Longint; { event message }
  87.         when : Longint; { ticks since startup }
  88.         where : Point; { mouse location }
  89.         modifiers : Integer; { modifier flags }
  90.        );
  91.     1:  (
  92.          wmWhat : Integer;
  93.          wmMessage : Longint;
  94.          wmWhen : Longint;
  95.          wmWhere : Point;
  96.          wmModifiers : Integer;
  97.          wmTaskData : Longint; { TaskMaster return value. }
  98.          wmTaskMask : Longint; { TaskMaster feature mask. }
  99.          wmLastClickTick : Longint;
  100.          wmClickCount : Integer;
  101.          wmTaskData2 : Longint;
  102.          wmTaskData3 : Longint;
  103.          wmTaskData4 : Longint;
  104.          wmLastClickPt : Point;
  105.        );
  106. END;
  107. EventJournalRecHndl = ^EventJournalRecPtr;
  108. EventJournalRecPtr = ^EventJournalRec;
  109. EventJournalRec = RECORD
  110.     statusMode : Integer;
  111.     yLocation : Integer;
  112.     xLocation : Integer;
  113. END;
  114. FUNCTION Button ( buttonNum:Integer) : Boolean ;
  115. FUNCTION DoWindows  : Integer ;
  116. PROCEDURE EMBootInit   ;
  117. PROCEDURE EMReset   ;
  118. PROCEDURE EMShutDown   ;
  119. PROCEDURE EMStartUp ( dPageAddr:Integer; queueSize:Integer; xMinClamp:Integer; xMaxClamp:Integer; yMinClamp:Integer; yMaxClamp:Integer; userID:Integer)  ;
  120. FUNCTION EMStatus  : Boolean ;
  121. FUNCTION EMVersion  : Integer ;
  122. FUNCTION EventAvail ( eventMask:Integer;VAR eventPtr:EventRecord) : Boolean ;
  123. PROCEDURE FakeMouse ( changedFlag:Integer; modLatch:Integer; xPos:Integer; yPos:Integer; ButtonStatus:Integer)  ;
  124. FUNCTION FlushEvents ( eventMask:Integer; stopMask:Integer) : Integer ;
  125. FUNCTION GetCaretTime  : Longint ;
  126. FUNCTION GetDblTime  : Longint ;
  127. FUNCTION GetKeyTranslation  : Integer ;
  128. PROCEDURE GetMouse (VAR mouseLocPtr:Point)  ;
  129. FUNCTION GetNextEvent ( eventMask:Integer;VAR eventPtr:EventRecord) : Boolean ;
  130. FUNCTION GetOSEvent ( eventMask:Integer;VAR eventPtr:EventRecord) : Boolean ;
  131. FUNCTION OSEventAvail ( eventMask:Integer;VAR eventPtr:EventRecord) : Boolean ;
  132. FUNCTION PostEvent ( eventCode:Integer; eventMsg:Longint) : Integer ;
  133. PROCEDURE SetAutoKeyLimit ( newLimit:Integer)  ;
  134. PROCEDURE SetEventMask ( sysEventMask:Integer)  ;
  135. PROCEDURE SetKeyTranslation ( kTransID:Integer)  ;
  136. PROCEDURE SetSwitch   ;
  137. FUNCTION StillDown ( buttonNum:Integer) : Boolean ;
  138. FUNCTION TickCount  : Longint ;
  139. FUNCTION WaitMouseUp ( buttonNum:Integer) : Boolean ;
  140. IMPLEMENTATION
  141. END.
  142.